UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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Dh ae se el el ol oe el el ee 
Cl eet eel oe el eel eel ol ne el ee 


quem quae 
= 
— 
— 


ee ee ed ee et ee ee es 
ee ee a ooo 


= 
— 
os 
— 
nw NNMNwM 
ow NNNwW 
nw nn on 
On nn nw 
nn nn nn 
own nn nn 
nn nn nn 
nw nn nn 
Mnunn nn 
NNNM awn 
ww ww 
wu wu 
ww uw wu 
usu wu rvTrr) 
wu usu wu 
uu wus uw 
uu uous ww 
usu uw uu 


[VU TVS TEs Tv elvelvurvelvelvelvervelveyvurry) 
a ds a 


a 
eo ers 


os 
os 
oo 
nw MNMNM 
nn NNNM 
awn nn nn 
mm nn on 
nn nn ow 
nn nn an 
nn nw nn 
nn own nn 
NNNwW nn 
NNW nn 


nn NMMM 
nn nn “nn 
nn nw nn 
mn “wn nn 
nn “wn nn 
nn now nw 
nn mn nw 
MMMM nn 
MMMM mm 
oe = 
= = 
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RMSTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 YAX/VMS Macro V04-00 Pa 1 
yOL~000 o73EP =] obc 81:37:36 UETP.SRCJRMSTEST1.MAR; 1 (1) 


SBEGIN RMSTEST1,009,__RMSTEST,<GENERAL RMS TEST PROGRAM>,<GBL,LONG> 


-ENABL DBG 


is program tests the sequential file org, for a disk device, 
th vfc record format. 


test ja: 


records, where each record has 
ving the record # and a variable 


create known test file of 0 
4-44 of the ascii character n mod 1 
er 


1 
a seorte fixed control fiel 
Lengt portion of n mod 100 
(where ‘'n’ is the record nu 


00 
d 


b 
mb 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SRMSDEF 
«NLIST MEB 


« macros: 


SOOCOCOCOoOOCOCOOCOCOCOOoOoOOoOOoooo 


NAN BUF -MACRO BUFF NAM,SIZE 


~BLKB SIZE 
NAM'BSZ==SIZE 
-ENDM BUFF 


-MACRO TYPE STRING, ?L 
<STRING> 


1 
B VERBOSITY,L 

MOVL  $#$$.TMPX, CMDORAB+RABSL_RBF 
#$$.TMPX1 , CMDORAB+RABSQ_RSZ 
$PUT RAB=CMDORAB, ERR=REPORT, ERROR 


SOOOCOOOCSSOOSOSOOSOSOSOSOOOSOOSOSOSOSOSOOOOOOOOOOOOOOOOOO 


OOoOooooooooooooooooooooosoSaa 


-ENDM = TYPE 


MACRO WITYPE STRING 

SWAIT RAB=CMDORAB 

TYPE <STRING> 

-ENDM = WTTYPE 

-MACRO WFIELD STRING 
RAB=CMDORAB 


FIELD <STRING> 
. DA 


RP tt MQOODODOOOOO0O O00 OOOO 0000000 00 09 09 09 09 09 09 SI NINI INI INNO AAA O 


SOON NE WIN MQ OOO NAME WIN O OO NOU EWN 2 OOONOAU LS WR 0 OONOULS WN) OVOONOUS 


ae et a a hs > ts ts os hs  — —§ — 3 


ai 


GENERAL RMS TEST PROGRAM 


BH 


"SSE b=198¢ 


1:45: 
4:21: 


33 


AX/VMS 
UETP. 


SRCIANS 


v04-00 
srt ST1.MAR;1 


Page 3 


3 aes Besre v04-00 
:59 CUETP.SRCIRMSTEST1.MAR;1 


GENERAL RMS TEST PROGRAM 


ab 33h 
v04-000 


; store any carriage control info 


. ‘= . 
coc wvuc voc 
vc®e c®@ vue 
on on co 
efe ere e*e 
wv wT wT 
+= +x +x 
aw aw aw 
unm vunWMm un 
uw Mw ww mw 
< wa wa wa 
a a t a 1 a t 
. Lo] = [ - 4 io 
oOo = wow =< 2-4 5 an 
4 <= w@ Zz —« a Tr ail 
_ =< = @wme —- ws z= wee a 
<= = a _ —_ nw —_ a —_ oan 
- <« rez WA<* —-Ax< aA << ae 
” 2 or -—-zaa =z=aa. uzaa om 
” ze <a t4EE-2 <EEe nw 
w = —a ww 22 DZ 2 DMOZ DOA +O 
=< =< cr =< —e oO tt Qe JO * OW @w - 
oOo —-s S&S OMPABGOVZV“YERSKHZ™ Zw IMVHOwrc a 
- t we I PAU th AB tt tt MM UI OW @ 
wn” - og @QOvBBOOu V BRU uru VY BRBuiuz> = 
tt 
bd <a 
o fa 20 o o o oO 
ewekt Fe = aw Zaw Zzaw za = 
ve>owre- YrFwmo VE IjJIBOVE J IUBSWVE I IBOUWY a 
aay wm wz zO>>0240>>02<40>7>02<40r- 2 
Zuwa“raecteaow =Zz-OOMVMwz+--COOMVwz--OOMVMw=E Ia w 
7 2 AO «A MEZZO + MEZO + MEFZOD - -wOmw . 
7 anf o 


WOR- DOA — CPN ~T WN OR. WA Oe CUP T NOR. DAO CUM TUN OR. OR Or 
SOS OSORIO PY SF AF SF FF FF TFT TNA OOO 


Dl el ee el eel eee cel el oe el el el el ek el eh ee el el el el eel el ee oe el eh ee ee el el eed ek ek 


DOOOOOCOOGOOOOOOSOGOOOOSOOSOOOSCOSOSOOSOOOCOOOSCOOoOO 
DOOOCOOSOSOOOSOOSSOOOOSOOOSOOSOSOSOSOSOSSSOOSOSOOSOOOSoSO 
OOOO OCSOSOSOOSOSOSOSOOSOSOSSOSSOSOSSOSOSSOSSSOSOSOSOOOSO 
COOOOOOOOCOOSOSOOSOSOSOSSOSSOSOSSOSSOSSOOOSOSOOOOOOOO 


dD 5 
Hira 33h GENERAL RMS TEST PROGRAM ; 19360-1388 9) 333332 ween 


S$ Macro V04-00 Pa 
SEP- UETP. SRCIRMSTE ee 4) 


ST1.MAR;1 


=~. 


0000 164 .PSECT __RMSTEST,GBL,LONG 
165 [ALIGN CONG 
1 g TISTART:: 
167 WIRAB:: $RAB 
00000364 168 RFATBL: .BLKQ 100 
4 169 TIFAB:: $FAB  _FAC=PUT, FNM=<TSTSDISK:TIFILE.DAT; 1>,org=seq,rfm=vfc,- 
Lue RAT=CR,FSZ=4 ,MRS=100, NAM=NAMBLK, FOP=<SUP.CTG>, = 
6 ALQ=48.DEQ=12, SHR=<PUT, GET, UPI> 
4 1% TIRAB:: S$RAB | FAB=T1FAB,UBF=CPYBUF ,USZ=CPYBSZ,RBF=CPYBUF ,MBC=4,MBF=2,- 
4 123 cree ROP=<WBH>, RHB=RECCNT ,KBF =RECCNT 
00000000 00000000 ; 123 “" LONG 0,0 
4 153 ; 
4 178 
9090408"000 0025" 04 179 TISTR: .LONG TIL,T1S 
44 52 GF 43 45 52 0 ee 4 421 06 180 115: .cASCII '!4U0L. RECORDS WRITTEN. RFA = !XL,!xW" 
20 30 H: 4E 45 54 54 49 52 57 20 53 0414 
B 21 2C 4C 58 21 20 3D 20 41 46 3 4 0 
‘ 00000025 4 b TIL=.-T1S 
42D 
£3) 
F 


00000 35" 0000005F* 04 TZstR: .LONG T2L,T2S 
20 3D 30 23 20 44 52 4F 43 4 0 04 125: "ASCII ' RECORD # = !4UL, RHB = !4UL!/" 
annaeheniie & 
4C 55 33 21 20 3D 20 45 SA 49 53 20 04 187 sASCII * SIZE = !3UL, RSZ = !UW!/' 
21 57 55 $1 3 Hd 0 5A 53 52 20 ¢ rf 
3D 20 41 46 52 20 44 465 56 41 53 20 046C 188 sASCII * SAVED RFA = !XL,!XW, FILE RFA = !XL,!XW" 
49 46 30 3¢ 57 58 21 2C 4C 58 217 20 0478 
4C 58 21 20 3D 20 41 46 5 20 45 4C 0484 
57 58 21 eC 490 
O000005F 0494 189 T2L=.-T2S 
494 190 
494 191; 
494 198 
0000949¢ "09000008 * 04 4 193 T3STR: .LONG T3L,13S 
46 41 21 27 3D 20 44 52 4F 43 43 32 4 194 13S: TASCIL "RECORD ="!AF'!/"" 
ho5000F oe 195 T3L=.-135 rae 
01 04 196 RHBSW: .BYTE 1 3; switch for modifying rhb contents 


_—_ CU  ------— -- QV 


al) 


FB36 CF 00000002'EF 


3 bo 


52 FEDE CF 00000064 ef 
57 52 FED? cf 9 

7 0 

22 AB O56 

57 43 00 
00000000" EF 
FABA‘ 

30 ‘ 

08 

88 10 AB 
56 

O95F 


56 


ww 


FFB1 FE9A CF 01 O35E8 B&F 


FA8C' 
FESE CF 


RMTSTEST_1A:: 


ow 9VIOO 
mo moc» 


oO 


np www eiololololelelolololololo! 

bb deeded deed d-dbedb db db Ab Ab db ab db dh db dh ah dh dh dl i tee dae lee lee lee tee dee ee dee tee te at ae ae ee ee 
RIPPIPOPOPIPONPIPYNPININPINPONPIPONONY —_- POPOPOTO = POPOPOPOROROPORoToRoNONnonofronofnonononon 
PAA AAAIAIWIPoNPOMPONPENEN oo POPEPOMO ee OO 
OOWONAVULE AN —"OOONOUE WO OCONOUSW-OUOONOUS wo 


5 
GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 YAX/VM . 
SrSEp- 1984 04:21:30 LderPesacdansresti on Sind 


Vv 
1 4:21: UETP.SR T1.MAR;1 


“WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 
BEGIN <SEQUENTIAL TESTS> 
MOVW CMDORAB+RABSW_ISI ,WIRAB+RABSW_ISI; copy output isi for 


TDIFFERENT RAB SWAIT TEST 


picts #FABSM_CTG,TIFAB+FABSL_FOP; don't want ctg set 
BISL2 #RABSM~ASY,CMDORAB+RABSL_ROP 

MOVL #1,RECCNT 

MOVAL _ RFAT " R8 

SCREATE FAB=T1F AB, ERR=REPORT_ERROR 

MOVAL___T1RAB,R11 

$CONN 


ECT ae RAB=R11,ERR=REPORT_ERROR 


EDIV #100, RECCNT,R2,R6 ; compute record Length 

EDIV #10,RECCNT,R2,R7 3; compute character for record 
ADDB #48,R ; make it ascii 

MOV RG, RABSU RSZ(R11) : tell rms the record size 
MOVCS #0,(SP),R7,R6,CPYBUF : fill record with character 
$PUT RAB=R11,ERR=REPORT_ERROR 

BSBW ERR 

CMPL R7, #48 3; is this 10th record? 

BNEQ TICNT :; branch if not 

MOVQ RABSW_RFA(R11), (R8)+ ; save rfa_in table 

TSTL R6 : is this 100th record? 

BNEQ TICNT 

BSBW TYPRFA ; type out the rfa 

ACBW #1000 ,#1,RECCNT ,NXTREC 

SCLOSE FAB=TIFAB,ERR=REPORT_ERROR 

BSBW ERR 

CLRW TIRAB+RABSW_ISI ; allow rab to be re-used 
SWAIT CMDORA 

TYPE <FINISHED TEST 1A = CREATED TEST FILE> 


| BS 
RAS GENERAL RMS TEST PROGRAM ; AX/VMS Macro V04-00 


FDOF CF 


04 AB 


FFF2 59 


FFF2 59 


01000000 BF 
FO7C CF 2 
F9EE* 


00010000 8F 


sl Ses BP 


F 
A 
57 


58 
06C 
FFF6 BF OA 
59 OA 


op 
OA Sve BF 
4357 00 
59 O3DE gr 
A 

F9OF 


on 
fo Te +) 


30 


30 


OOCOCOOCCOO 


SSSSSSS OSS S- 


PUSSIES BY 


SOOOCOOoOoCOOOoOOoOoOOoooO 
oa 
> 
m 


PARES A AAAS OS OAS SH MIMI ANI 


PP FS PM NOOO O-Maw 


DD ONIN D BPP INPININVI MM OOK LL LLL LEE 


Sam 


APAAAAASAASSO 


oO 
nn" 


"OrSeei13be bui53:86 LOR MSRC eRe eet Teak: «| Page 8, 


test 1b 


re-read ile created in test la and try random and sequential 
access via $get and $find. 


SWAIT RAB=CMDORAB 
TYPE 


<BEGINNING TEST 1B - $GET AND $FIND> 
BISL2 #FABSM_NAM,T1FAB+FABSL_FOP 
SB2 0s #FABSM GET TIFAB+FABSB-FAC 
AB, ERR=REPORT_ERROR 


\eventually include code here to verify file attributes.\ 


MOVL GRAsen_L 0S RABSL_ROP(R11); locate mode 


SCONNECT AB=T1RAB,ERR=REPORT_ERROR 

OVB anagsc RFA,RABSB_RAC(R11); rfa access 

MOVZWL #1000,R9 ; starting record number 

CLRAL R10 3 aS a@ quadword for ediv 

CLRL R7 : flag for 1st pass 
TIBLOOP1: 


#8,R8 3 move to previous rfa 
BSBW = GE TANDCHK 
#10,R9 start with record # 10 


TIBLOOP2: 
BSBW GE TANDCHK 


#8R 3; move to next rfa 
ACBW «=_-«s# 990, #10, R9,, TIBLOOP2 


BBSS #0,R7,T1BDONE ; branch if 2nd pass 
SWAIT CMOORA 
YP <PASS 0.K.> 
MOVZWL #990,R9 ; start with rec # 990 
BRB T1BLOOP1 
TIBDONE : 


SWAIT CMDORA 

TYPE <PASS 2 0.K.> 

SCLOSE FAB=T1IFAB,ERR=REPORT_ERROR 
BSBW ERR 


MEAN O ODNOAU EWN 9 OD NAME WN OOO NOA UE WN OOO NA IEWWIN  O ODNOUNE 


WO OOO 090909 0909 09 09 09 09 09 SI INNIS NSN SID AAA AA AAA MMIII BS SE 


cP 


a ttt 
>>> >>> >> > > YY YP YY YY WDDWAWO 


6 5 
vba sto as Beane MREIOE SLSR IMEEM 


test 1c 


use update to modify records created in test la 


and len 
20$: sedis record contents 


F865° 30 
2c AB OFS fr oF 
4 
FFBD 59 «OA 8 O5€8 B&F D O7A4 


SOBGTR R4,20$ 
SUPDATE RAB=R11,ERR=REPORT_ERROR 


MOVAL CCNT,RABSL_RHB(R11) 3 restore rhb addr 
ADDL Be ; bump to next rfa entry 
ACBW #100 #10,R9,TIBLOOP4 =: modify every 10th record 


FI 
Fy 
Fi 
Fy 
FI 
i 
FI WITYPE <START TEST 1C = SUPDATE> 
fC48 CF «008s g B1SBe #FABSM_UPD, TIFAB+FABSB FAC 
? OPEN FAB=T1FAB,ERR=REPORT_ERROR 
F8BA' 30 07% BSBW sé 
02 AB OBS 246 gL Ru RABSW_IS1(R11) 
74 CONNECT RAB=R11,ERR=REPORT_ERROR 
FBAS' 30 758 SBW SCR 
1€ 02 758 MOVB #RABSC_RFA,RABSB_ RAC(RIT) SY 
5 A dO O75F MOVL #10,R start at record 10 1 
58 FBDE cr DE 169 MOVAL RFATEL, RB 11 
7 D4 160 CLRL sR? ; get single record Ls 
769 3 T1 
769 11 
769 TIBLOOPS : 11 
769 BSBW GE TANDCHK 11 
26 INCL RECCNT : modify rhb 11 
aA RINEGB RHBSW, RHBSW 3 toggle rhb modify flag 8 
AB D4 0779 CLRL RAB$L_RHB(R11) 3 don't modify rhb (default) 11 
55 AB 0 oe 10$: MOVL RABSL ~RBF (R11) ,R5 3 get record addr 11 
54 AB C 07 (R11) ,R4 : T 
784 3 T 
7 § T 
7 Te 
it i 
T 1 
3 


<4 
m~<»D 


now reread the modified file and check that every 10th (and only 
every 10th) record has been correctly modified 


Sete te te 


MOVAL RFATBL,R8 
» reset record # 


58 F894 5 bE 7AC 0 
0 MOV #RABSC_SEQ,RABSB_RAC (R115 


$disconnect rii 

bsbw err 

$connect rij ido an effective rewind 
sbw err 


SREWIND RAB=R11,ERR=REPORT_ERROR; so do a rewind 
F837" 30 BSBW ERR 


ian) 
M 
oO 
es J 
nn" 
on 
Woo 
NOOO 
ono 
unn> 
wow 
OMAO 
~N 
> 
AMA BEE EE AAA AAA AAI OPOPIPONINPOPIPUD OOOO OOOOOOO0O 


APR OOD NAME WR HO OD NAME WN HO OD NAN EWN OOD NAN EWI O OO NIA AF WIN OS OOON 
=z 
oO 
< 
~ 
= 
- 
2 
>> 

wow 
wo 
Ls 
1 
» 
“ 
~ 
.s . 


H 
os) esc thags Leese MCRECIOEE SLSR WONIMEANAEMhea 


7¢ 
rt : TIBLOOPS: 
7 v6 O7C jue 4 5 get switch for no rfa compare 
| DD O7C¢B USHL +4 3; # gets of unmodified recs 
D6 O07CD 10$: {uct R ; bump rec # 
7CF GE RAB=R11,ERR=REPORT ERROR 
85 ° ; PDE 6 BSBwW coe 
4 4: BSBW sP)ei 
F 7 3 SOBGTR (SP),10$ 
i D 7E TSTL ee 
D6 O7E9 4 {uct PR ; bump rec # 
7E8 5 GET RAB=R11,ERR=REPORT ERROR 
30 O7FA § BSBW ERR 
ee 7FD 6 CLRL R7 3; specify rfa to be checked 
FCAS CF FCA8 CF of 7FF rt: pnege fy SW,RHBSW ; toggle rhb modified switch 
FBEC CF 0 a8 5 INCL pec cer 
50 FBE7 CF aT © 13 4 15$ sues 4 »RECCNT,RO 3; rhb contents = rec # + 1? 
3 1 7 BEQL 20$ : branch if yes 
5 : 8 74 BSBW BADRH ; report error 
54 1 75 20$: BSBW CHKR : check record len, rfa, and contents 
9 C 1C 4 ADDL gf : bump rfa table addr 
O3E8 ae Bt 1F 7 CMPW R9,#100 3; done? 
12 4 28 BNEQ  TIBLOOP t branch {f net 
6 37 SCLOSE FAB=T1FAB,ERR=REPORT_ERROR 
F7C6" 30 7 80 BSBW ERR 


at) 


GENERAL RMS TEST PROGRAM 


AX/VMS Macro V04-00 


ef 


1 5 
a Te Pa ee a ae ts |e he nT 


¢ ; test 2 = random i/o test for sequential file org 
§ ; test 2a 
3 : greece a known test file of 1000 records of Abt length = 49. bytes, 
FY st longword has fde corere # (n) followed by 45 bytes of the ascii 
0 : character (nm mod 42) + 48. 
i WITYPE <START TEST 2A = RANDOM SEQ I/0> 
AB g TeSETUP: ay papsu.igicatt 
28 AB 0g90o006: F $6 OVAL CPYBUF,RABSL_RBF (R11) 
AB 31 9 MOVZBW #49 RASH _RSZ(RI1) 
SA -FADB CF 98 VAL FAB,RI 
10 AA 30 99 MOVZBL #48, FABSL_ALQ(R10) 
04 AA 01000000 &F 490 BICL TASH NAA, FABSL_FOP(R10) 
16 AA 401 CLRB AB ; FAC (R10) ; check for put default 
1F AA o1 40¢ MOVB FABSC_FIX,FABSB_RFM(R105 
36 AA 531 40 MOVW  #49,FABSW_MRS(R10) : rec len 
404 $RAB_STORE RAB=(R11) ,ROP=<LOC,UIF> 
ni 405 SCRERTE FAB=R10,ERR=REPORT_ERROR 
FAAS CF 00010631 8 407 CHPL #RMS$_SUPERSEDE , T1FAB+FABSL_STS 
409 FIELD <STATUS WORD IS NOT SUPERSEDE, THEREFORE IT> 
410 SUPOK: $CONNECT RAB=R11,ERR=REPORT_ERROR 
F713" 411 BSBW Ss ERR 
218 
rh : pre-extend file on 1st pass, put sequentially on second pass 
416° 
AA 3 219 BBS or ngs BLK ,FABSB_RAT(R10),10$; branch if pass 2 
FAFF CF O3€8 &F t18 MOVZWL #1000,RECCN 
AB OO 41 MOVB  #RABSC_KEY,RABSB_RAC(R11) 
420 $PUT RAB=R1IT, ERR=REPORT_ERROR 
Fert 453 BRE, SOS 
1E AB 8 4 5 10$: MOVB #RABSC_SEQ,RAB$B_RAC(R11) 
FADE CF 01 4 4 20$: MOVZWL #1,RECCNT 
159 * 
57 52 FADS CF A 4 § NXTRC2: EDIV oog RECHT RE R7 ; compute char for record 
4 ADDB2 #48,R : make it ascii 
00009000" EF FADO cf 430 MOVL RECENT CPYBUF : insert rec # 
a a | 431 MOVCS #0, (SPS,R7,#45,CPYBUF+4 ; fill rec with char 
4 g SPUT §RAB=R11,ERR=REPORT_ERROR 
F¢B7" 4 BSBW 
05A1 4 4 BSBW  CHKRFA 
436 ; 
4 $ 3; print message every 100 records 


J 5 
RASTEST1 GENERAL RMS TEST PROGRAM ; “SEP- 5: ‘AX/VMS Mac 04-00 Pp RM 
V0. 580 "er§ sats ri ae 33 3 UETP. SRC} RMST ST1.MAR;1 a A$ vo 
gee 3s ; 
52 FAAS CF 00000064 78 Hi 44 EDIV #100,RECCNT,R2,R7 
: 44 TSTL = RT 
9 44 BNEQ  T2CNT 
05 : B 44 BSBW 3s: TYPRFA 
Aad 
9 rr ; 
FFB2 FA92 CF «001 «= O3EB BF 3D 3 447 T2CNT: ACBW #1000,#1,RECCNT,NXTRC2 
3 44 SCLOSE FAB=R10,ERR=REPORT_ERROR 
F686" 30 44 BSBW ERR 
02 AB B4 097A 43 CLRW RABSW_ISI(R11) 
97D 451 WITYPE <END STEP 2A = START STEP 28> 


K 5 
RMSTESTI GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro v06-00 
voe- meet A REE a 0 a ke 


98 $3? 
$8 4 : ; test 2b 
9B 4 5 : reread file created in step 2a and try random and sequential 
98 & 8 >; access via $get 
3B 466 ’ 
16 AA 09 90 989 461 MOVB #F ABSM_PUT! FABSM_UPD ,FABSB_FAC(R10); d impli t 
04 AA 01000000 SF C8 098 46e BISL2 FFABSH-NAR FABSL-FOPERIO) Sra, Tae ree GPS Seryes 
9c5 46 OPEN FAB=R10,ERR=REPORT_ERROR 
F629° 30 He 464 BSBW ERR 
te 
907 4 ; : movl #rab$m_loc,rab$l_rop(ri1) 
ae 
3444 136 SRAB_STORE RAB=(R11) ,ROP=<LOC ,UIF> 
1E AB O01) 90s «O9DF S47 MOVB~  #RABSC_KEY,RAB$B_RAC(R11) 
Pa ot are 4? SCONNECT RAB=R11,ERR=REPORT_ERROR 
FOFC CF O3€8 8F C O9F 474 MOVZWL #1000,RECCNT 
OOEE ane 
O9FC 139 : get all records in reverse order 
ae 
054D 30 O9FC 480 10$: BSBW GTCHK2 
FFF3 FOF1 CF FFFF 8F 02 D OFF 481 ACBW #2,#-1,RECCNT,10$ 
na 
Age 484 ; now get them all forward 
N08 Be 
0540 3 ADO & § 20$: BSBW GTCHK2 
FFF3 F9ES CF 01 O3€8 8F D OAOC 488 ACBW #1000,#1,RECCNT,20$ 
Dale 490 
ets 491: now get every 10th record in reverse order followed by the 
Ai? 136 3 next 10 in sequential order 
Ag ie 
FODB CF ne 6 80 aie $32 30s nowy #990, RECCNT 
1E 6B 0 § A b 499 MOVB Snes) SEG RARER _RAC (811) 
5 OA 00 OA24 $38 MOVL #10,R 
epee US Bas sp eM tt 
F6 5 F A ‘ 1 SOBGTR R8 Oke 
1E AB CO 20 A : MOVB aries KEY RABSB RAC(R11) 
FFDE F9BB CF «OFFEC 8F «6001 = 3D A 5 ; ACBW 3s #1, #-20,,RECCNT, 30$ 
at 
ASF 8 WITYPE <PASS 1 0.K.> 


L 5 


RMSTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro v04-00 P 1 RM 
yoL~500 ety 7 8:53:89 LUETP. SRCTAMS MSTEST1.MAR;1 7 dé, vO: 
! ; do 10 random puts, changing record contents 
1 e 
4 OvB 4/00 88. ; updating character 
F974 CF "o8 it HY 18 MOVZBL . 
00009000" EF 9 cr 1 40S: OVL tat Py 
D Reoslles 09 1 MOVCS (SP§ Reyes, CPYBUF+4 ; change the record 
8 $PUT RAB=R11,ERR=REPORT_ERROR 
557° BSBW RR 
a) 0 BSBW CHKRFA 
CC F942 CF 0065 BF O3E8 BF 1 ACBW #1000,#101,RECCNT,40$ 
O4EF ¢ BSBW CHKMOD ; go verify changes 
4; 
2 é ; do 10 random get/update pairs 
5 a 
56 1 528 MOVB #*°A/1/,R6 iu dating character 
F934 CF OSB a 9 MOVZBL #91,RECCNT starting rec # 
0 50$: $GET RABERIT. PRR= REPORT _ERROR® 
F52A° 1 BSBW ER 
58 gone wi ‘4 : ¢ silage 4 Ts ; get addr of record char 
a3 534 55$: INCB (RBS+ 3; bump contents 
FB 59 535 SOBGTR R9,55$ 
2 6 SUPDATE PAbeRi ERR= =REPORT_ERROR 
F509° 7 BSBW hey 
O3F3 5 8 BSBW CHKRFA 
BE F8F4 CF 0065 8F O3E8 8F 5 ACBW #1000,#101,RECCNT,50$ 
04A1 379 BSBW CHKMOD ; go verify changes 
Hg 
44 WITYPE <PASS 5. 0.K.> 
45 SCLOSE FAB=R10,ERR=REPORT_ERROR 
F4A9' $8 BSBW ERR 
3F 1E AA 3 4 BBSS #F ABSV_BLK,FABSB_RAT(R10) , DONE 
rh WITYPE <DUPLICATE TEST QITH RECORDS NOT CROSSING BLOCK BOUNDARIES> 
FCDB 4 BRW T2SETUP 
2] 3 
16 AA 1 j DONE: MOVB #FABSM_PUT,FABSB_FAC(R10) 
1E AB 0 4 MOVB #RABSC SEQ, ;RABSB~ RAC(R11) 
5 SWAIT CMDORAB 
00000004 ‘EF stints F § MOVL #RABSM_WBH,RABSL_ROP+CMDORAB 
F7A4 CF 1000000 8F 38 BICL2 #FABSM_NAM, TIFABTFABSL FOP 
60 ; 
61 BUT FIRST -- TEST 3 
62 ; 


RMSTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro V04-00 Page 13 
v04-000 g- SEE 3be 8) :$3:32 HOETP eRe MSTEST1.MAR; 1 9 a) 
ate és : test truncate 
BC4 5° 
BC4 66 $FAB_STORE FAB=R10,SHR=#0,FAC=<PUT,GET,TRN>; set up for trn 
BCB (56 SOPER FAB=R10,ERR=REPORT_ERROR 
F423" 30 OBDA 68 BSBW  —sCERR 
BDD : SCONNECT RAB=R11,ERR=REPORT_ERROR 
F411" 30 OBEC 0 SBW CER 
ESEF' 30 BFE 4 ot 1 dh ata catthaa tanta get ist record, setting up cp 
smet ae coi rs TRUNCATE RAB=R11,ERR=REPORT_ERROR; truncate ail 
ig 75 Seer RAB=R11 ; should get eof 
0001827A 8F 50 01 O0C1 A: CMPL RO, #RMS$_EOF 
su Ge Re ire ag 
F3pS 88 be 8 8 BSBW EOF PUT : too bad 
C2B 0 TROK: TYPE <TRUNCATE SUCCEEDED!> 
CSA 1 SDISCONNECT RAB=R11,ERR=REPORT_ERROR; clean up 
F394" 30 0c69 5 : ERR 
seand ae acts i SCLOSE FAB=R10,ERR=REPORT_ERROR 
cre i 5 $FAB_STORE FAB=R10, SHR=<PUT,GET,UPI>, FAC=PUT 
1F AA 03 90 O0C8 286 MOVB ar ABSC VFC, FABSB_RFM(R105 
36 AA 66 BF O98 C88 8 MOVZBW #100, FABSW MRS (RTO) 
1E AA ; 90 0C9 288 MOVE #FABSM_CR,FABS$B_RAT(R10) 
10 AA DO Oc94 MOVL #48,FABS$L_ALQ(RTO) 
3F AA 6060 S90 «098 = 590 MOVE #4,fABSB_FSZ(R10) 
28 AB O0000000'EF DE aks $8 MOVAL CPYBUF ,RABSL_RBF (R11) 
CAG 3 : 
Bene 398 3 try to erase the file! 
CAG 596 
mi ie 397 SERASE F AB=T1F AB, ERR=REPORT_ERROR 
ocBg 599 TYPE  <TIFILE.DAT HAS BEEN ERASED> 
F678 CF 00100000 8F C8 OCE? 600 BISL2 #FABSM CTG,FABSL_FOP+TIFAB; for ‘f' test 
OCFO 601 FINISH <SEQUENTIAL TESTS> 
04 0005 602 RET 


Nn 5 
RMSTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro v04-00 Page 14 
Os 80 tet 8) :33:32 LOETP SRC IAMS TESTI MARS 1 9 (16) 
D 604 
D 4 i 
. ? § ; subroutine to read in a record 
D 608 ° 
D ? ? § GETANDCHK: 
10 AB 68 96 ef D 1 MOVC3 #6,(R8),RABSW_RFA(R11) ; rfa to rab 
15 E DOB = 61 gles ; branch if pass 2 
DOE 67 GET  RAB=R11,ERR=REPORT_ERROR: get via rfa 
Fano” 3 DID 61 BSBW RR 
C 1 D 614 BSBB CHKREC 
0 D oF RSB 
D 1 PASS2: 
1E AB 02 90 OD 61 MOVB #RABSC_RFA,RAB$B_RAC (R11) 
D 618 SFIND RAB=R1T,ERR=REPORT_ERROR 
F2c7' D g 61 BSBW 
1E AB 00 «690 «(OD 620 MOVB #RABSC_SEQ,RABSB_RAC(R11); switch back to sequential 
D3D = s «4621 PUSHL #10 3; loop count 
DSF 6 § TIBLOOP3: 
OD3F 6 $GET RAB=R11,ERR=REPORT_ERROR 
F2AF* 30 Opes 624 BSBW 
0B 10 OD5 625 BSBB CHKREC 
59 06 0053 «= 626 INCL R9 3; bump record count 
E7 6E F 0D55 627 SOBGTR (SP),TIBLOOP3 
59 OA Cé 0058 628 SUBL2 #10,R9 3 restore record count 
8E DS 0D5B 629 TSTL (SP5+ : clean up stack 
05 OD5D 630 RSB 


Oo 


B 6 
ead 33h GENERAL RMS TEST PROGRAM ; "973 or 88e See Tae 14 AX/VMS Mac 


ro V04-00 Page 15 
UETP.SRCIRMSTES 


T1.MAR;1 (18) 


Deeb 
D : 
4 ¢ ; subroutine to check that record read is really the right record 
D5 ‘ 
D 5 CHKREC: 
F695 CF 59 B} D 8 CMPL R9,RECCNT 3; fixed header = record #? 
44 OY D6 6 BNEQ BASRHB 
56 52 59 ee eh ef 7B 0D 7 CHKRC1: EDIV #100,R9,R2,R6 ; compute record length 
AB OCS6)COBT Dg 4 CMPW =—-R6 , RABSW_RSZ(R11) : = rms record Len? 
4C¢ 12 OD 64 BNEQ BADRSZ 
55 52 ¥F67F CF A 4 D7 4 EDIV #1 BR CCHT Ae.RS 3; compute Gherecter 
0 078 44 ADDB #48,R 3 make ascii 
6E 00 55 28 BB 6 443 oF Haig RG ,SRABSL_RBF (R11) ,R5,#O, (SP); match the record? 
07 5 5 D87 825 BLBS R7,10$ ; branch if pass 2 
10 AB 68 6 DBA 978 CMPC3) «#6, (R8),RABSW_RFA(R11) ; rfa the same? 
01 Ne DBF 64 BNEQ BADRFA 
0 D91 650 10$: RSB 


——L 


¢ 6 * 
a) fee, We Teel eon ‘ESEEION SUSE MEAMTBR EBM 


4 3 handle errors 


é 5 BADRFA: FIELD <RFA> 

46 11 65 BRB ERROR 
BADRHB: FIELD <RHB> 

a 71 BRB ERROR 
BADRSZ: FIELD <RSZ> 

18 «11 BRB ERROR 
BADRBF: FIELD <RBF> 

01. «(11 BRB ERROR 


F8 OOOOOOOO'EF £9 


Yemen hy pone 
QO000004"EF O01 CA 


T RAB=CMDOR 
2 #RABSH ASY, RABSL_ROP+CMDORAB 
: STR CHDO DORAB+RAB$W_RSZ,FAOBUF , - 


§2(R11) -- 
f attri RFA(R11) /RABSW_ RFA+4(R11) 


VAB EnSBur CMDORAB+RABSL_RBF 
ut AB=CMDORAB, ERR=REPORT_ERROR 


PRE 
mOVIWL RABSW_RSZ(R11),R 

SFAO_S T3STR R-CROORAB + AABSW _RSZ,FAOBUF ,- 
RO OReSL RBF (R11 


LBC 
$PUT "ibe po sagoie 
BsBW ERR 


ow 
Co ed 
om 


00000028"EF 000000 


on 

unm On 

> mun 

wu NO 
m 


; output a message 


50 OOOOO0000'EF €E9 TYPRFA: BLBC veneos itt NO 
SWAIT on different ra 


RAB=WTRAB b f 
$FAO_S TISTR CMDORAB+RABSW_RSZ, iadsut, RECCNT ,RABSW_RFACR 
RABSO. RFA+4(R11) 


L 
MOVAB CMOBUF ,CMDORAB+RABSL_R 


or i/o to complete 
11),- 


MEW O OONAUE WIN 0 OONOU EWN O OONOUES WhO 
=-+4 


OOOO O00 69 09 69 09 09 C9 09 09 SI NIN NIN SINS NN NS NIAAA AAA vr 


FF 50 44 
00000028"EF 00000000'EF E 


MMMM MMMM MMMM MMMmMmMmmMmmMmnmmnmMmmmmmmnoooOCVCVCCVCVCVCCOVVCUVTVTOVTTCVTTCSO 
A A OL SHEET TT ET TE 


MMNOIOOPY POOoowuowowovwono 
POO DONNO MIMI & 1D 4 "Womb Pb WP WO HMMM MOo WNOM O—~noronorororny 


= 
inal 
“i 
o 
m 
o 
OOOO COOCOCOOOOOCOOOCOOCOOOOOOOOOOOCOOOOCOO 


3 SPUT RAB=CMDORAB, ERR= REPORT ERROR 
F114" 30 4 BSBW ERR 
05 00 NO RSB 


RM 
vO 


RMSTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro v04-00 Pa 7 
VoL 00 BrSEE 198s 84:57:89 PORTE SRC eens rest tars 1 ve 
; subroutines for test 2 
: subroutine to check rfa correctness 
50 £506 CF } c3 CHKRFA: SUBL% a A CCNT,R af rec # - 1 
19, 1E AA BBS BLK PABSB. RAT(R105, 108 
35 0 A EMUL ; get byte addr 
52. (51 4, *Bo008 00 f ‘8 EDIV URI, a0, R2 + compute vbn-1 & offset 


; alternate calc for records not crossing blk boundaries 


WOM SOLU SPOOOOODOOVUOWOUVUIVTVTVTTFT 


R 
ERRRF A: pe <RF A> 


bd 
@ oO 
OOOCCCOCOCOCOCOCOCOCOOO OOOO OOOOOOOOOO 


Fe ee re re re ee re rr PETTITT rrrrirrirrnicricrn 
wo 

NNNNNNNNINNNNINNNNINININNINNNISS 
WiIRONONONORoNONONONON 3 3 BOO 


SCODNAUEWN OO OONOULWN OO ODNONE Wr 
— 
Oo 
A 


51 4 CLRL R1 3 zero extend record # 
sO Rh... SS A EDIV #19-RQ-R1 Re ; compute vbn-1 rec # in blk 
52 2 AG MUL #50,R2 ; compute offset 
1 06 1 208 INCL 3 vbn 
10 AB 1 D1 1 CMPL R1,RABSW_RFA(R11) 
07 ~=«12 1 BNEQ a 
14 AB 52 Bl 1 CMPW R2,RABSW_RFA+4(R11) 
01 if 1 BNEQ  ERRRFA 
0 OS 
4 
4 


ee 


se 


57 50 = =—F4A7 gf $f 


GENERAL RMS TEST PROGRAM ; 
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DNF OWUWUNMOOMOOM 


wo 
> 
SSNUSS SS SSeS Soe MMAOn aw 
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ODD wr 
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oouv 


Se ie Di i De ee De es De ee ee Bs eB ee Ds es Oe i i i Be Be ee De es Bs ee Be De Bs Be Bee Ds ee Bs Dee ees Dee es Dee De | 


F448 CF SA 8F 
FF99 

F441 gf 

57 6 

FF99 

att CF 

O3E9 8F F433 CF 
FTE 

F424 CF 0063 8F 
DA 

0001827A 8F 50 
01 

A 

A 
F002" 

0400 8F 


OO RN BMMMMOCVIOOOO 
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¢ $ subroutine to get and check a record for test 2 


GTCHK2: EDIV 225-GECCHT AO.AF ; compute char 
ADDB #48,R 
GTCHK2A: 
$GET RAB=R11,ERR=REPORT_ERROR 
BSBW RR 
BSBW CHKRFA 
MOVL RABSL_RBF(R11),R2 3; get rec addr 
CMPL (R2)+,RECCNT : reccnt o.k.? 
BNEQ  ERRREC 
CMPCS #45,(R2),R7,40, (SP) 3 match? 
BNEQ ERRREC 
ERRREC: WFIELD <RECORD CONTENTS> 
rs 


subroutine to verify that updated records were changed but not 
the preceeding or following records 


CHKMOD: 
MOVZBL ery becca ; starting rec # 
CHKNXT: BSBW GTCHK 
INCL RECCNT 
MOVL R6,R 3; check character 
BSBW = GTCHK2A 
INCL RECCNT 
CMPW RECCNT, #1001 ; all done? 
BEQL 10$ 
BSBW GTCHK 
ADDW #99, RECCNT 
BRB CHKNXT 
10$: $GET R11 
CMPL RO #RMS$_EOF 
BNEQ 208 
RSB 
20$: 
SWAIT RAB=CMDORAB 
PUSHL R1 3; save it 
OVL R11,R10 ; bad structure!!! 
BSBW = EOF PUT 
POPR #*A<R10> 
MBPT 
RSB 
- END 


RMSTESTI 
Symbol table 


$5 -PSeCt LEP 
$$. TABEND 

$$. TMP 

$$. TMP) 

$$. TMP2 

$$. TMPX 

$$. TAPX1 
SSRASTEST 
SSRMS_PBUGCHK 


= 
Pr.) 
DD 
m 
o 


SEEEE 3 
SES ISS SSS Sh St es 


eee 
@ounzan™ 


gererere 
greerenre 


eeteeree 
teneenee 
eeeetere 
ateerene 
popoere 

OOOODEE 


rereeene 


GENERAL RMS TEST PROGRAM 


04 


ss ts 4 = = ss © ss ss ss a a 


OQoooococooooooooooooooo 


F 
SSEp=1986 84:34: 


6 
P 9 RM 
RM ~e dh vO: 
000036 


E_MODE 
_MODE 


NAMB 


N 
REPORT_ERROR 
RFATBL 


WBsu 
nS$_EOF 

$ SUPERS 
MTISTEST_1A 


R 
RAS 
RAT 


39 Wetbrsec 


ReReeeees 
RRRRAEEE 
eeaeereee 
eeeereee 
Reeeeeee 
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RMASTEST1 GENERAL RMS TEST PROGRAM ; 16-SEP-1984 01:45:37 VAX/VMS Macro v04-00 P 0 
Symbol table Breeei13be baistiko HORM SRCg eee eet eas «| PAee (82, 
000008DB R 1 
SYSSCLOS seeereee gx” 1 
SYSSCONNECT eenereee GX 1 
SYSSCREATE eeenener § 6X 1 
SYSSDISCONNECT eeneeeee GX 1 
SYSSERASE eeereeee GX 1 
SYSSFAO eeereree x 1 
SYSSF IND eerereee GX 1 
SYSSGET eerereee GX 1 
SySseut™ cererers 
SYSSREWIND eeeeeree GX 1 
SYSSTRUNCATE eeeneree GX 1 
SYSSUPDATE wenenene GX 1 
SYSSWAIT eeneeene § GX 1 
TIBDONE 6° 6A1 R D O01 
tietooP2 SER bOI 
ees § bee R D 01 
TIBLOOP4 00769 R D Q1 
TIBLOOPS th D O1 
TEA D000%62 RG b OF 
TIL = 0000 $ D 
TIRAB $4 4 RGD 1 ERI 
T1S BS 408 R D 01 FAE 
TISTART 44 RG D 1 FAE 
T2ent 000095 Rb OF FAL 
fi = BO90008E 7B ir 
T2SETUP 800 876 R D a F AE 
T2STR 4 gp R D 1 FAE 
135 = Soooosee R BO} FAL 
TSSTR ag000¢94 R D } FAE 
TROK pp oc ee R ) 1 FAE 
TYPRFA Q00000E95 R D 01 FAE 
VERBOSITY eeereeee YX 1 F AE 
WTRAB 00000000 RG D 01 on 
Peewee necoonne + FALE 
! ! FAL 
PSECT name Allocation PSECT No. Attributes on 
. 5 « 94564 9 444 ( Q-? 0 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE FAL 
RMSTEST 0 ( 4107.) Q1 ) NOPIC USR CON REL GBL NOSHR EXE RD WRT NOVEC LONG FAI 
SABS$ ( 0.) ¢ { ¢:) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE FAI 
SRMSNAM 8 ( gi-} ( ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE FAI 
__ SRMSNAM 00196 ( 406.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE rs 
Fl 
fll 
FL 
Fil 


"eee 1986 bas31.39 


RAST 


ae GENERAL RMS TEST PROGRAM ; 
VAX=11 Macro Run Statistics 


gre rset ee eee tem ene eon cee} 


! Performance indicators ! 


Se re 2 


Phase Page faults CPU Time Elapsed Time 
Initialization 8 :00:00.07 :00.5 
onneee processing | 00:09. ¢ 200: oF 
Rtas°s table sort ua :00:00.74 :00: if 
Symbol table output 1 3 :00: f 
Psect synopsis o .put : 8 :00:00.1 
Cross-reference output 3: ‘ :00: 9 
Assembler run totals 70 : 4 0:00:46. 


Ths york ing eet Limit yes 1650 pages. 
< boa 5 69 pages) of virtual memory were used te buffer the intermediate code. 
788s were 30 pages of symbol table space th had BE of hold 618 non-local “ 34 local symbols. 
source tines were reed in Pass 1, produci object records in Pass 2. 
9 pages of po, memory were used to def Mn macros. 


we wn ere near e tenon meen meen } 


Macro Library name 


~$SggSDuAgs: Svs. -OBJILI m8; 1 0 
SSSDUA SYSLIBISTARLET.MLB;2 36 
TOTS (all libraries) 36 


1074 GETS were required to define 36 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=_IS$:RMSTEST1/OBJ=OBJ$:RMSTEST1 MSRC$:RMSTEST1/UPDATE=(ENHS$:RMSTEST1)+EXECMLS$/LIB 
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